home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 December / PCWorld_2006-12_cd.bin / audio-video / audacity / audacity-win-unicode-1.3.2.exe / {app} / Nyquist / nyqmisc.lsp < prev    next >
Lisp/Scheme  |  2003-10-01  |  1KB  |  31 lines
  1. ;; nyqmisc.lsp -- misc functions for nyquist
  2.  
  3. (setf *snd-display-max-samples* 10000)
  4. (setf *snd-display-print-samples* 100)
  5.  
  6.  
  7. ; (snd-display sound) -- describe a sound
  8. (defun snd-display (sound)
  9.   (let (t0 srate len extent dur samples)
  10.     (setf srate (snd-srate sound))
  11.     (setf t0 (snd-t0 sound))
  12.     (setf len (snd-length sound *snd-display-max-samples*))
  13.     (cond ((= len *snd-display-max-samples*)
  14.                  (setf extent (format nil ">~A" (+ t0 (* srate *snd-display-max-samples*))))
  15.            (setf dur (format nil ">~A" (* srate *snd-display-max-samples*))))
  16.           (t
  17.            (setf extent (cadr (snd-extent sound *snd-display-max-samples*)))
  18.            (setf dur (/ (snd-length sound *snd-display-max-samples*) srate))))
  19.     (cond ((> len 100)
  20.            (setf samples (format nil "1st ~A samples" *snd-display-print-samples*))
  21.            (setf nsamples *snd-display-print-samples*))
  22.           (t
  23.            (setf samples (format nil "~A samples" len))
  24.            (setf nsamples len)))
  25.     (format t "~A: srate ~A, t0 ~A, extent ~A, dur ~A, ~A: ~A"
  26.       sound srate t0 extent dur samples (snd-samples sound nsamples))))
  27.  
  28.  
  29. ; arch-tag: a2d8e495-b702-479f-9d4d-9b81c4199647
  30.  
  31.